4D Doc Center : SMTP

4D Internet Commands v12.1

SMTP_Send


SMTP_Send ( smtp_ID {; paramSesion} ) -> resultado

Parámetro	Tipo	Descripción
smtp_ID	Entero largo	Referencia del mensaje
paramSesion	Entero largo	1 = Use SSL, 0 se omite = No utilizar SSL
resultado	Entero	Código de error

Descripción

El comando SMTP_Send envía el mensaje referenciado por smtp_ID pero no borra los datos de la memoria.

smtp_ID es la referencia entero largo de un mensaje electrónico creado con el comando SMTP_New.

El parámetro opcional sessionParam permite activar el protocolo SSL para la conexión:

Si pasa 1, el envío del mensaje se efectúa en SSL (modo síncrono),
Si pasa 0 u omite este parámetro, la conexión se efectúa en modo estándar, no seguro.

Ejemplo

En este ejemplo, se crea un mensaje y se definen los elementos estáticos. Para cada registro de la tabla [Personas], el mensaje se personaliza y se envía.

 $error:=SMTP_New($smtp_id)

 $error:=SMTP_Host($smtp_id;"wkrp.com")

 $error:=SMTP_From($smtp_id;"herb_tarlick@wkrp.com")

 $error:=SMTP_ReplyTo($smtp_id;"bigguy@wkrp.com")

 $error:=SMTP_Subject($smtp_id;"¡Promociones en espacios publicitarios!")

 FIRST RECORD([Personas])

 For($i;1;Records in selection([Personas]))

    If([Personas]Sales2Date>100000)

       $Body:=◊BigDiscText

    Else

       $Body:=◊SmlDiscText

    End if

    $Body:=Replace string($BoilerPlate;"<Salutation>";[Personas]Firstname)

    $error:=SMTP_To($smtp_id;[Personas]Email;1) `Remplazar el encabezado "A" por un nuevo valor

    $error:=SMTP_Body($smtp_id;$Body)

    $error:=SMTP_Send($smtp_id)

    NEXT RECORD([Personas])

 End for

 $error:=SMTP_Clear($smtp_id)